home *** CD-ROM | disk | FTP | other *** search
/ Mesolore / Mesolore - Disc 1.iso / pc / data / Buttons.cst / 00291_Script_Glossary finger < prev    next >
Text File  |  2001-04-13  |  736b  |  49 lines
  1. -- PROPERTIES --
  2.  
  3. property spriteNum, myCursor, myMask
  4.  
  5. -- internal properties
  6. property myMember
  7.  
  8.  
  9.  
  10. -- EVENT HANDLERS --
  11.  
  12.  
  13. on beginSprite me
  14.   Initialize me
  15. end beginSprite
  16.  
  17.  
  18.  
  19. -- CUSTOM HANDLERS --
  20.  
  21. on Initialize me -- sent by beginSprite
  22.   myMember = sprite(me.spriteNum).member
  23.   myCursor = the number of member "i_finger"
  24.   myMask = myCursor +1
  25. end Initialize
  26.  
  27. on mousewithin me
  28.   myMember = sprite(me.spriteNum).member
  29.   if the type of myMember = #field then
  30.     if the forecolor of char the mousechar of field mymember = 15 then
  31.       cursor [myCursor,myMask]
  32.     else
  33.       cursor 0
  34.     end if
  35.   end if
  36. end
  37.  
  38. on mousedown
  39.   checkgloss
  40. end 
  41.  
  42. on mouseLeave me
  43.   cursor 0
  44.   pass
  45. end
  46.  
  47.  
  48.  
  49.